home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 209
/
209.d81
/
b.tips and trick
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
85 lines
5 sys65418:a=peek(2):ifa<5ora>14 then poke2,5
10 poke53280, 0:poke53281, 0:print"[147][142]";
11 print"[158]loadstarpresents:"
12 print"[159][176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]"
13 print"{$7d}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[159]{$7d}"
14 print"{$7d}{$7d}[159]{$7d}"
15 print"{$7d}[155]{$7d}[159]{$7d}"
16 print"{$7d}[155]{$7d}{$7d}{$7d}[183][183]{$7d}{$7d}[183][183][183][159]{$7d}"
17 print"{$7d}[152]{$7d}{$7d}{$7d}{$7d}[173]{$60}{$60}[174][159]{$7d}"
18 print"{$7d}[152]{$7d}{$7d}{$7d}[175][175]{$7d}[175][175][175]{$7d}[159]{$7d}"
19 print"{$7d}[151]{$7d}[160][159]{$7d}"
20 print"{$7d}[151]{$7d}[159]{$7d}"
21 print"{$7d}[151]{$7d}[158]and[159]{$7d}"
22 print"{$7d}{$7d}"
23 print"{$7d}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[159]{$7d}"
24 print"{$7d}{$7d}{$7d}[159]{$7d}"
25 print"{$7d}[155]{$7d}{$7d}N[159]{$7d}"
26 print"{$7d}[155]{$7d}{$7d}[183][183]{$7d}{$7d}[183][183]{$7d}N{$7d}[183][183][183][159]{$7d}"
27 print"{$7d}[152]{$7d}{$7d}{$7d}{$7d}{$7d}M[173]{$60}{$60}[174][159]{$7d}"
28 print"{$7d}[152]{$7d}{$7d}{$7d}{$7d}[175][175]{$7d}M[175][175][175]{$7d}[159]{$7d}"
29 print"{$7d}{$7d}"
30 print"[221]compiledbylouisf.sander [159][221]"
31 print"[173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189]"
32 print"[158]pressspacetocontinue"
40 ifpeek(203)<>60then40
50 :
100 dim na$(50),fi$(50):tp=1
110 read na$(tp),fi$(tp)
120 ifna$(tp)="end"thentp=tp-1:goto200
130 tp=tp+1:goto110
140 :
200 print"[147][158] tips and tricks"
205 print" [129]compiled by louis f. sander"
210 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
215 print" [221] [221]":rem na$(1)=""+na$(1)
220 fora=1totp
230 print" [221] [154]"na$(a)"[146] [221]"
240 next:rem na$(1)=right$(na$(1),26)
245 print" [221] [221]"
250 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
260 :
300 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
310 print" [221] [154]use the cursor keys to move the [221]"
320 print" [221] highlight [154]up and down. [221]"
325 print" [221] [221]"
330 print" [221] [154]press return to select. [221]"
340 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":ro=peek(2):lr=ro:goto500
400 poke198,.:poke2,ro
410 geta$:ifa$=""then410
420 lr=ro:ok=.
430 ifa$=""then ro=ro+1:ok=-1:ifro=tp+5thenro=5
440 ifa$="[145]"then ro=ro-1:ok=-1:ifro=4thenro=tp+4
450 ifa$=chr$(13)then 600
460 if ro=tp-1+4 then 430
470 if not(ok) then410
480 :
500 poke783,peek(783)and254:poke781,lr:poke782,7:sys65520
510 print"[154]"na$(lr-4)
520 poke783,peek(783)and254:poke781,ro:poke782,7:sys65520
530 print""na$(ro-4)
540 goto400
550 :
600 me$="loading "+fi$(ro-4)
610 ta=20-len(me$)/2
620 print"[147]"tab(ta)me$
630 :
640 d=peek(186):print"[144]load"chr$(34)fi$(ro-4)chr$(34)",8"
650 print"run"
660 poke631,13:poke632,13:poke198,2:end
999 :
1000 rem "center----->!!<-----retnec"
1005 data " jaws ", jaws
1010 data " european siren ", european siren
1020 data " base converter ", base converter
1030 data " dec <-> hex converter ", dec/hex converter
1040 data " start address finder ", start address finder
1050 data " disk error reader ", disk error reader
1060 data " f7 apostrophe ", f7 apostrophe
1070 data " color advance ", color advance
1900 data " ", blank space
1950 data " return to loadstar ", hello connect
1998 :
1999 data "end",end
10000 d=peek(186):n$="b.tips and trick":open15,d,15,"s0:"+n$:close15:saven$,d:end